home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ham Radio 2000
/
Ham Radio 2000.iso
/
ham2000
/
misc
/
loadpole
/
lnetwks.bas
< prev
next >
Wrap
BASIC Source File
|
1992-02-19
|
4KB
|
124 lines
10 CLS
20 FOR X=1 TO 16:PRINT"":NEXT
30 PRINT" ********* TWO ELEMENT MATCHING NETWORK DESIGNER *********"
40 PRINT" -------------------------------------"
50 PRINT" ******** BY MARTIN EDER *********"
60 FOR X=1 TO 8:PRINT"":NEXT
70 FOR X=1 TO 1000:NEXT
80 O$=CHR$(234)
90 INPUT "WHAT IS THE INPUT IMPEDANCE TO THE L NETWORK? ",R1
100 PRINT"ENTER THE COMPLEX IMPEDANCE OF THE LOAD;"
110 PRINT"FIRST THE RESISTIVE COMPONENT,"
120 PRINT"THEN THE REACTIVE COMPONENT."
130 INPUT"RESISTIVE (OHMS) ",R
140 INPUT"REACTIVE (CAPACTIVE=(-);INDUCTIVE=(+)) ",X
150 A=X/R1:B=R/R1
160 GOSUB 640
170 IF A>.5 THEN 180 ELSE 190
180 IF B>1 THEN 250
190 IF A>0 THEN 200 ELSE 230
200 IF B<1 THEN 210 ELSE 230
210 D=SQR((A*A)+((B-.5)*(B-.5)))
220 IF D>.5 THEN 250
230 IF A<.5 THEN 240 ELSE 370
240 IF B>1 THEN 310 ELSE 370
250 GOSUB 430
260 C1=((-2*R1*X)+K)/(2*(R-R1))
270 L1=((R1*X)+(C1*(R-R1)))/R
280 PRINT"NETWORK A USED"
290 N$="A"
300 GOTO 480
310 GOSUB 430
320 L1=(2*R1*X)+K
330 C1=(L1*(R-R1)-(R1*X))/R
340 PRINT"NETWORK B USED"
350 N$="B"
360 GOTO 480
370 L1=(SQR(R1*R-R*R))-X
380 S2=(L1+X)*(L1+X)
390 C1=(S2+(R*R))/(L1+X+.0000001)
400 PRINT"NETWORK C USED"
410 N$="C"
420 GOTO 480
430 W=4*R1*R1*X*X
440 Y=4*R1*(R-R1)
450 Z=X*X+R*R
460 K=SQR(W+Y*Z)
470 RETURN
480 PRINT"CAP. REACTANCE= ";INT(C1*100)/100;O$
490 PRINT"INDUCT. REACTANCE= ";INT(L1*100)/100;O$
500 GOSUB 640
510 INPUT"FREQ. IN MHZ.?",F
520 C=1/(C1*2*3.14159*F)
530 L=L1/(2*3.14159*F)
540 C=INT(C*10000000#)/10
550 L=INT(L*10000000#)/10000000#
560 PRINT"CAP.= ";C;"PICOFARADS"
570 PRINT"CAP. REACTANCE= ";INT(C1*10)/10;O$
580 PRINT"INDUCT.= ";L;"MICROHENRIES"
590 PRINT"INDUCT. REACTANCE= ";INT(L1*10)/10;O$
600 PRINT" INPUT Z= ";R1;O$
610 PRINT"COMPLEX Z= ";R;" + ";X
620 GOSUB 640
630 GOTO 790
640 PRINT"---------------------------------"
650 RETURN
660 PRINT" --------"
670 PRINT"----! INDUCT !--------------------"
680 PRINT" -------- !"
690 PRINT" !"
700 PRINT"IN ---------- OUT"
710 PRINT" CAPACITY"
720 PRINT" ----------"
730 PRINT" !"
740 PRINT" !"
750 PRINT"-----------------------------------"
760 PRINT"":PRINT"NETWORK A"
770 INPUT"TO CONTINUE ENTER ANY NUMBER",Z
780 GOTO 560
790 PRINT"WANT TO:"
800 PRINT"1-ENTER A NEW FREQUENCY?"
810 PRINT"2-DESIGN A NEW NETWORK?"
820 PRINT"3-REVIEW NETWORK ";N$;" ?"
830 PRINT "4-DESIGN A COIL?"
840 PRINT "5-EXIT TO SYSTEM?"
850 PRINT"6-STOP?"
860 INPUT D
870 IF D=1 THEN 510
880 IF D=2 THEN 90
890 IF D=4 THEN RUN "COILS.BAS"
900 IF D=5 THEN SYSTEM
910 IF D=6 THEN 1230
920 FOR X=1 TO 8 :PRINT"":NEXT
930 IF N$="A" THEN 660
940 IF N$="B" THEN 960
950 IF N$="C" THEN 1100
960 PRINT" ! C !"
970 PRINT" ! A !"
980 PRINT"------! P !---------------------OUT"
990 PRINT" ! ! !"
1000 PRINT" ! ! !"
1010 PRINT" -------- "
1020 PRINT" ! INDUCT !"
1030 PRINT"IN --------"
1040 PRINT" !"
1050 PRINT" !"
1060 PRINT"---------------------------------"
1070 PRINT"NETWORK B"
1080 INPUT"TO CONTINUE ENTER ANY NUMBER",Z
1090 GOTO 560
1100 PRINT" --------"
1110 PRINT"------------------! INDUCT !------"
1120 PRINT" ! --------"
1130 PRINT" !"
1140 PRINT" -------"
1150 PRINT" CAP OUT"
1160 PRINT" -------"
1170 PRINT" !"
1180 PRINT" !"
1190 PRINT"-----------------------------------"
1200 PRINT"NETWORK C"
1210 PRINT"":INPUT"TO CONTINUE ENTER ANY NUMBER",Z
1220 GOTO 560
1230 END